home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ COM Options 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.2 KB  |  99 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="9"
  3. "COUNT"="5"
  4. "UIPATH"="Hardware\Modem"
  5. "NAME"="COM Port Speed"
  6. "VERSION"="3.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Speed up...."
  9. "DESCRIPTION 1"="By default, Windows only allows 9600 bytes on every serial port."
  10. "DESCRIPTION 2"="These settings simply tell the computer to allow speeds over 9600 bytes per second with Internet connections."
  11. "DESCRIPTION 3"="This speeds up downloads and file transfers, etc. and can make the Internet a lot faster."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"=" "
  17. "COMMENT 3"="Thanks to AXCEL216 (http://members.aol.com/axcel216/) and CptSiskoX (http://sites.netscape.com/computingx/)!"
  18.  
  19.  
  20. sFile="WIN.INI"
  21. sReg="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ports\"
  22.  
  23. sSec="Ports"
  24. sTa="COM"
  25. sTb=":"
  26.  
  27. '*DEFAULT*
  28. sV_Normal="9600,n,8,1,x"
  29. '*BETTER*
  30. sV_Better="921600,n,8,1,p"
  31.  
  32. bIniMode=true
  33.  
  34.  
  35. Sub Plugin_Initialize  
  36.  Call SetUIElement(1,"Speed up COM1:")
  37.  Call SetUIElement(2,"Speed up COM2:")
  38.  Call SetUIElement(3,"Speed up COM3:")
  39.  Call SetUIElement(4,"Speed up COM4:")
  40.  Call SetUIElement(5,"Speed up COM5:")
  41.  Call SetUIElement(6,"Speed up COM6:")
  42.  Call SetUIElement(7,"Speed up COM7:")
  43.  Call SetUIElement(8,"Speed up COM8:")
  44.  Call SetUIElement(9,"Speed up COM9:")
  45.  
  46.  
  47.  if GetWinVer=1 or GetWinVer=3 then
  48.     bIniMode=true
  49.  else
  50.     bIniMode=false
  51.  end if
  52.  
  53.  
  54.  for i=1 to 9
  55.      s=sTa & i & sTb 
  56.      
  57.      if bIniMode then
  58.         s=IniReadValue(sFILE,sSec,s)
  59.      else
  60.         s=RegReadValue(sReg & s)
  61.      end if 
  62.  
  63.  
  64.      if s=sV_Better then
  65.         Call SetUIElementEx(i,true)
  66.      end if 
  67.  next 
  68.  
  69. End Sub
  70.  
  71. Sub Plugin_CheckData(ElementIndex)
  72. End Sub
  73.  
  74. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  75.  for i=1 to 9
  76.      b=GetUIElementEx(i)
  77.      s=sTa & i & sTb 
  78.     
  79.      if b=true then
  80.         sTemp=sV_Better
  81.      else
  82.         sTemp=sV_Normal
  83.      end if
  84.  
  85.  
  86.      if bIniMode then
  87.         Call IniWriteValue(sFILE,sSec,s,sTemp) 
  88.      else
  89.         Call RegWriteValue(sReg & s,sTemp,1)
  90.      end if
  91.  next 
  92.  
  93.  
  94.  Call Logoff()
  95. End Sub
  96.  
  97. Sub Plugin_Terminate 
  98. End Sub
  99.